For Each Date[] (gb)

Dim hDateArray As Date[]
Dim aDate As Date
For Each aDate In hDateArray
  ...
Next

Enumerates each element stored in the array.